home *** CD-ROM | disk | FTP | other *** search
- Declare Line%,Command$,Message$
-
- WindowTitle "MCI Test program in PROBAT"
- Window 20,20-600,400
- Cls
-
- Let Line% = 0
- Let Command$ = @Input$("Please enter MCI command:",\
- "MCI command","")
-
- WhileNot @Equ$(@Upper$(Command$),"END")
- If @GT(Line%,20)
- Cls
- Let Line% = 0
- EndIf
- Print "Command: ";command$
- Inc Line%
- Let Message$ = @MCISend$(Command$)
- If %MCIError
- Print "Error: ";
- Else
- Print "OK! ";
- EndIf
- Print Message$
- Inc Line%
- Let Command$ = @Input$("Please enter MCI command:",\
- "MCI command","")
- Wend
- End
-
-